home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / bignuts < prev    next >
Text File  |  2007-02-28  |  2KB  |  75 lines
  1. 0010 //* PROGRAM: BIGNUTS *//
  2. 0020 INTRODUCTION
  3. 0030 GAME
  4. 0040 FINITO
  5. 0050 //* END OF PROGRAM: BIGNUTS *//
  6. 0060 //
  7. 0070 PROC INTRODUCTION 
  8. 0080 //-PREPARE TO PLAY-//
  9. 0090 PRINT CHR$(147) //CLEAR SCREEN//
  10. 0100 PRINT "NOW WE ARE GOING TO PLAY"
  11. 0110 PRINT "'PEANUTS'."
  12. 0120 PRINT "HOW MANY GAMES SHOULD WE PLAY",
  13. 0130 INPUT MAX
  14. 0140 PRINT 
  15. 0150 PRINT "OK, HERE WE GO:"
  16. 0160 PRINT "IF YOU THINK I AM HOLDING"
  17. 0170 PRINT "AN ODD NUMBER OF PEANUTS"
  18. 0180 PRINT "THEN ENTER 1;"
  19. 0190 PRINT "BUT IF YOU THINK I AM HOLDING"
  20. 0200 PRINT "AN EVEN NUMBER OF PEANUTS"
  21. 0210 PRINT "THEN ENTER 0"
  22. 0220 PRINT 
  23. 0230 COUNTWIN:=0
  24. 0240 ENDPROC INTRODUCTION
  25. 0250 //
  26. 0260 PROC GAME 
  27. 0270 FOR NO:=1 TO MAX DO
  28. 0280 //-THIS IS THE GAME ITSELF-//
  29. 0290 PRINT "WELL, WHAT IS YOUR GUESS (0,1)",
  30. 0300 INPUT GUESS
  31. 0310 STAKED:=RND(1,8)
  32. 0320 OUTCOME:=STAKED MOD 2
  33. 0330 PRINT 
  34. 0340 RESULT
  35. 0350 WINNER
  36. 0360 PRINT 
  37. 0370 IF NO<MAX THEN PRINT "NEXT GAME:"
  38. 0380 ENDFOR NO
  39. 0390 ENDPROC GAME
  40. 0400 //
  41. 0410 PROC FINITO 
  42. 0420 //-FINAL RESULT-//
  43. 0430 PRINT "THANKS FOR THE GAME!"
  44. 0440 IF COUNTWIN>0 THEN
  45. 0450 PRINT "YOU HAVE WON ",COUNTWIN," PEANUT(S)."
  46. 0460 ELSE 
  47. 0470 PRINT "YOU HAVE LOST ",-COUNTWIN," PEANUT(S)."
  48. 0480 ENDIF 
  49. 0490 PRINT 
  50. 0500 PRINT "COME AND PLAY SOME OTHER DAY."
  51. 0510 ENDPROC FINITO
  52. 0520 //
  53. 0530 PROC RESULT 
  54. 0540 IF OUTCOME=0 THEN
  55. 0550 PRINT "I AM HOLDING ",STAKED," PEANUTS"
  56. 0560 PRINT "I.E. AN EVEN NUMBER, ",
  57. 0570 ELSE 
  58. 0580 PRINT "I AM HOLDING ",STAKED," PEANUTS"
  59. 0590 PRINT "I.E. AN ODD NUMBER, ",
  60. 0600 ENDIF 
  61. 0610 ENDPROC RESULT
  62. 0620 //
  63. 0630 PROC WINNER 
  64. 0640 IF OUTCOME=GUESS THEN
  65. 0650 PRINT "SO YOU WIN."
  66. 0660 PRINT "CONGRATULATIONS!"
  67. 0670 COUNTWIN:=COUNTWIN+STAKED
  68. 0680 ELSE 
  69. 0690 PRINT "SO YOU LOSE."
  70. 0700 PRINT "I AM SORRY!"
  71. 0710 COUNTWIN:=COUNTWIN-STAKED
  72. 0720 ENDIF 
  73. 0730 ENDPROC WINNER
  74. 0740 //
  75.